home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1992 February
/
1992-02.d64
/
music patterns
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
46 lines
0 clr
10 x=rnd(-ti)
20 deffna(x)=int(110*rnd(1))+20
30 deffnb(x)=int(14*rnd(1))+1
40 deffnc(x)=int(11*rnd(1))+1
50 deffnd(x)=int(25*rnd(1))+1
60 deffne(x)=int(959*rnd(0))+1024
70 dimt(26)
80 fori=1to26:readt(i):next
90 fori=54272to54295:pokei,0:next:poke54296,15:poke54277,16:poke54275,8
100 fr=54273:vc=54276:sc=1024:mn=1063:mo=1064:ma=1983:co=40:lo=39:li=41
110 vn=65:vo=64:c=54272
120 printchr$(147)chr$(5):poke53280,0:poke53281,0
130 fort=1to10:print:next
140 printtab(4)"press space bar for new pattern
150 [129]t[178]1[164]1000:[130]
160 [153][199](147)
170 b[178]t([165]d(x)):[143] character
180 k[178][165]e(x):[143] starting point
190 p[178][165]c(x):h(1)[178][165]a(x)
200 q[178][165]c(x):h(2)[178][165]a(x)
210 r[178][165]c(x):h(3)[178][165]a(x)
220 s[178][165]c(x):h(4)[178][165]a(x)
230 t[178][165]b(x):u[178][165]b(x):v[178][165]b(x):w[178][165]b(x)
240 [129]x[178]1[164]p:[151]k,b:[151]k[170]c,t:[151]fr,h(1):[151]vc,vn:k[178]k[170]li
250 [139]k[177]ma[167]280
260 [139](k[171]mn)[173]co[171][181]((k[171]mn)[173]co)[178]0[167]380
270 [151]vc,vo:[130]
280 [161]a$:[139]a$[178]" "[167]160
290 [129]x[178]1[164]q:[151]k,b:[151]k[170]c,u:[151]fr,h(2):[151]vc,vn:k[178]k[171]lo
300 [139]k[179]mo[167]240
310 [139](k[171]mn)[173]co[171][181]((k[171]mn)[173]co)[178]0[167]330
320 [151]vc,vo:[130]
330 [161]a$:[139]a$[178]" "[167]160
340 [129]x[178]1[164]r:[151]k,b:[151]k[170]c,v:[151]fr,h(3):[151]vc,vn:k[178]k[171]li
350 [139]k[179]mo[167]380
360 [139](k[171]sc)[173]co[171][181]((k[171]sc)[173]co)[178]0[167]280
370 [151]vc,vo:[130]
380 [161]a$:[139]a$[178]" "[167]160
390 [129]x[178]1[164]s:[151]k,b:[151]k[170]c,w:[151]fr,h(4):[151]vc,vn:k[178]k[170]lo
400 [139](k[171]sc)[173]co[171][181]((k[171]sc)[173]co)[178]0[167]240
410 [139]k[177]ma[167]330
420 [151]vc,vo:[130]:[137]190
430 [131]81,95,105,127,160,170,171,174,186,192,205,206,209,214,215,219,221
440 [131]223,226,230,233,236,251,252,254,255